Software of the Month Club 1998 March/Software of the Month Club 1998 March.iso/pc/win/edu/solar/solar.exe/0/RCDATA/TFRMVIEW/TFRMVIEW.txt

Text File | 1997-11-30 | 15KB | 616 lines

object frmView: TfrmView
  Left = 144
  Top = 267
  ActiveControl = butNext
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'View Wizard'
  ClientHeight = 368
  ClientWidth = 577
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object bevelLine: TBevel
    Left = 8
    Top = 320
    Width = 561
    Height = 9
    Shape = bsBottomLine
  end
  object panelImage: TPanel
    Left = 16
    Top = 16
    Width = 169
    Height = 297
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 0
    object ImageView: TImage
      Left = 0
      Top = 0
      Width = 165
      Height = 293
      Align = alClient
      Center = True
      Picture.Data = {<image000.bmp>}
    end
  end
  object butBack: TButton
    Left = 159
    Top = 336
    Width = 97
    Height = 26
    Caption = '< &Back'
    Enabled = False
    TabOrder = 1
    OnClick = ButtonClick
  end
  object butNext: TButton
    Left = 256
    Top = 336
    Width = 97
    Height = 26
    Caption = '&Next >'
    Default = True
    TabOrder = 2
    OnClick = ButtonClick
  end
  object butFinish: TButton
    Left = 353
    Top = 336
    Width = 97
    Height = 26
    Caption = '&Finish'
    Default = True
    Enabled = False
    TabOrder = 3
    OnClick = ButtonClick
  end
  object butCancel: TButton
    Left = 464
    Top = 336
    Width = 97
    Height = 26
    Cancel = True
    Caption = '&Cancel'
    TabOrder = 4
    OnClick = ButtonClick
  end
  object Panel1: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 5
    object Label3: TLabel
      Left = 7
      Top = 23
      Width = 337
      Height = 66
      AutoSize = False
      Caption =
        'Welcome to the View Wizard. This wizard will step you through th' +
        'e process of setting up a point of view to look at the bodies in' +
        ' your system.'
    end
    object Label11: TLabel
      Left = 7
      Top = 95
      Width = 337
      Height = 66
      AutoSize = False
      Caption =
        'Use the '#39'&Next'#39' button to go to the next screen and the '#39'&Back'#39' ' +
        'button to return to the previous screen.'
    end
    object Label1: TLabel
      Left = 8
      Top = 157
      Width = 337
      Height = 92
      AutoSize = False
      Caption =
        'At anytime, you may use the '#39'&Cancel'#39' button to cancel the wizar' +
        'd and return to the previous view setting. When the View Wizard ' +
        'has enough information to set up the point of view, you may chos' +
        'e the '#39'&Finish'#39' button.'
    end
    object Label2: TLabel
      Left = 7
      Top = 252
      Width = 337
      Height = 37
      AutoSize = False
      Caption = 'To proceed, click the '#39'&Next'#39' button.'
    end
  end
  object Panel2: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 6
    object Label4: TLabel
      Left = 8
      Top = 21
      Width = 337
      Height = 84
      AutoSize = False
      Caption =
        'Solar System works in three space, therefore when setting up the' +
        ' point of view, you must think in 3D. To begin with, please sele' +
        'ct the type of view you would like to create.'
    end
    object RadioButton1: TRadioButton
      Left = 20
      Top = 97
      Width = 313
      Height = 50
      Caption = 'I wish to look away from a point in space.'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object RadioButton2: TRadioButton
      Left = 20
      Top = 140
      Width = 313
      Height = 50
      Caption = 'I wish to look away from a body in space.'
      TabOrder = 1
      OnClick = RadioButton2Click
    end
    object RadioButton3: TRadioButton
      Left = 20
      Top = 182
      Width = 313
      Height = 50
      Caption = 'I wish to look towards a point in space.'
      TabOrder = 2
    end
    object RadioButton4: TRadioButton
      Left = 20
      Top = 225
      Width = 313
      Height = 50
      Caption = 'I wish to look towards a body in space.'
      TabOrder = 3
    end
  end
  object Panel3: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 7
    object LblBodyAway: TLabel
      Left = 8
      Top = 29
      Width = 337
      Height = 61
      AutoSize = False
      Caption =
        'You have chosen to look away from one of the bodies in your syst' +
        'em. Please select the body that you would like to look away from' +
        '.'
    end
    object lblBodyTowards: TLabel
      Left = 8
      Top = 29
      Width = 337
      Height = 84
      AutoSize = False
      Caption =
        'You have chosen to look towards one of the bodies in your system' +
        '. Please select the body that you would like to look towards.'
    end
    object ListBoxChoseBody: TListBox
      Left = 42
      Top = 115
      Width = 268
      Height = 160
      ItemHeight = 16
      Sorted = True
      TabOrder = 0
      OnClick = ListBoxChoseBodyClick
    end
  end
  object Panel6: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 8
    object Label6: TLabel
      Left = 8
      Top = 32
      Width = 337
      Height = 65
      AutoSize = False
      Caption =
        'That is all the information the the wizard needs. Please click '#39 +
        '&Finish'#39' to implement your selection.'
    end
    object lblNote1: TLabel
      Left = 81
      Top = 112
      Width = 255
      Height = 100
      AutoSize = False
      Caption =
        'The scrollbars on the side of the viewport can be used to change' +
        ' the angle of view.'
    end
    object Label8: TLabel
      Left = 17
      Top = 112
      Width = 56
      Height = 33
      AutoSize = False
      Caption = 'Note:'
    end
    object lblNote2: TLabel
      Left = 81
      Top = 112
      Width = 255
      Height = 153
      AutoSize = False
      Caption =
        'With this setup, the scrollbars on the side of the viewport can ' +
        'not be used to adjust your point of view, since the computer is ' +
        'doing it for you. The position of the scrollbars still reprisent' +
        ' the direction of your point of view.'
      Visible = False
    end
  end
  object Panel4: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 9
    object lblPointAway: TLabel
      Left = 8
      Top = 25
      Width = 337
      Height = 56
      AutoSize = False
      Caption =
        'You have chosen to look away from a point in space. Please input' +
        ' the point that you would like to look away from.'
    end
    object lblPointTowards: TLabel
      Left = 8
      Top = 25
      Width = 337
      Height = 72
      AutoSize = False
      Caption =
        'You have chosen to look towards a point in space. Please input t' +
        'he point that you would like to look towards.'
    end
    object PanelCartesian: TPanel
      Left = 1
      Top = 100
      Width = 350
      Height = 157
      BevelOuter = bvNone
      TabOrder = 0
      object lblxpos: TLabel
        Left = 13
        Top = 16
        Width = 84
        Height = 33
        AutoSize = False
        Caption = '&X Position:'
        FocusControl = Editxposition
      end
      object lblypos: TLabel
        Left = 13
        Top = 66
        Width = 84
        Height = 31
        AutoSize = False
        Caption = '&Y Position:'
        FocusControl = Edityposition
      end
      object lblzpos: TLabel
        Left = 13
        Top = 119
        Width = 84
        Height = 34
        AutoSize = False
        Caption = '&Z Position:'
        FocusControl = EditZPosition
      end
      object lblxPosUnit: TLabel
        Left = 277
        Top = 17
        Width = 76
        Height = 32
        AutoSize = False
        Caption = 'meter'
      end
      object lblYPosUnit: TLabel
        Left = 277
        Top = 66
        Width = 76
        Height = 31
        AutoSize = False
        Caption = 'meter'
      end
      object lblZPosUnit: TLabel
        Left = 277
        Top = 119
        Width = 76
        Height = 34
        AutoSize = False
        Caption = 'meter'
      end
      object Editxposition: TEdit
        Left = 99
        Top = 12
        Width = 170
        Height = 24
        TabOrder = 0
        Text = '0'
      end
      object Edityposition: TEdit
        Left = 99
        Top = 62
        Width = 170
        Height = 24
        TabOrder = 1
        Text = '0'
      end
      object EditZPosition: TEdit
        Left = 99
        Top = 115
        Width = 170
        Height = 24
        TabOrder = 2
        Text = '0'
      end
    end
  end
  object Panel5: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 10
    object lbltowardsPoint: TLabel
      Left = 8
      Top = 10
      Width = 337
      Height = 50
      AutoSize = False
      Caption =
        'You have chosen to look towards a point in space. Please input t' +
        'he distance away from the point that you would like the eye posi' +
        'tioned.'
    end
    object ldlDistance: TLabel
      Left = 16
      Top = 92
      Width = 89
      Height = 37
      AutoSize = False
      Caption = '&Distance:'
      FocusControl = EditDistance
    end
    object lblTowardsBody: TLabel
      Left = 8
      Top = 10
      Width = 337
      Height = 71
      AutoSize = False
      Caption =
        'You have chosen to look towards a body in space. Please input th' +
        'e distance away from the object that you would like the eye posi' +
        'tioned.'
      Visible = False
    end
    object lbldistancebody1: TLabel
      Left = 8
      Top = 145
      Width = 337
      Height = 53
      AutoSize = False
      Caption =
        'To understand what distance represents, imagin a sphere of radiu' +
        's equal to distance. At the center of the sphere is the body tha' +
        't you are looking towards.'
    end
    object lbldistancebody2: TLabel
      Left = 8
      Top = 200
      Width = 337
      Height = 87
      AutoSize = False
      Caption =
        'Your eye is located on this sphere so that when you move the scr' +
        'ollbars, your eye moves around the sphere. This way your eye is ' +
        'always the same distance from the body and you can look at the b' +
        'ody from many different positions.'
    end
    object lbldistancepoint1: TLabel
      Left = 8
      Top = 145
      Width = 337
      Height = 64
      AutoSize = False
      Caption =
        'To understand what distance represents, imagin a sphere of radiu' +
        's equal to distance. At the center of the sphere is the point in' +
        ' space that you are looking towards.'
    end
    object lbldistancePoint2: TLabel
      Left = 8
      Top = 200
      Width = 337
      Height = 97
      AutoSize = False
      Caption =
        'Your eye is located on this sphere so that when you move the scr' +
        'ollbars, your eye moves around the sphere. This way your eye is ' +
        'always the same distance from the point in space and you can loo' +
        'k towards this point from many different positions.'
    end
    object lblDistanceUnit: TLabel
      Left = 277
      Top = 92
      Width = 76
      Height = 37
      AutoSize = False
      Caption = 'meter'
    end
    object EditDistance: TEdit
      Left = 102
      Top = 88
      Width = 170
      Height = 24
      TabOrder = 0
      Text = '1'
    end
  end
  object Panel7: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 11
    Visible = False
    object lblawayPoint: TLabel
      Left = 8
      Top = 22
      Width = 337
      Height = 43
      AutoSize = False
      Caption =
        'You have chosen to look away from a point in space. Would you li' +
        'ke to:'
    end
    object lblawaybody: TLabel
      Left = 8
      Top = 22
      Width = 337
      Height = 59
      AutoSize = False
      Caption =
        'You have chosen to look away from a body in space. Would you lik' +
        'e to:'
    end
    object Label9: TLabel
      Left = 150
      Top = 117
      Width = 35
      Height = 28
      Caption = 'Or'
    end
    object lblRadioPoint: TLabel
      Left = 29
      Top = 166
      Width = 322
      Height = 100
      AutoSize = False
      Caption =
        'that you are always looking towards a particular body. This way,' +
        ' whenever the body moves, your direction of view is automaticall' +
        'y updated.'
    end
    object lblRadioBody: TLabel
      Left = 29
      Top = 166
      Width = 322
      Height = 99
      AutoSize = False
      Caption =
        'that you are always looking towards a particular body. This way,' +
        ' whenever the body you are looking at or the one that your point' +
        ' of view is attached to moves, your direction of view is automat' +
        'ically updated.'
    end
    object RadioButton5: TRadioButton
      Left = 9
      Top = 88
      Width = 344
      Height = 25
      Caption = 'Use the scrollbars to change your direction of view.'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object RadioButton6: TRadioButton
      Left = 10
      Top = 144
      Width = 334
      Height = 23
      Caption = 'Allow the computer to adjust your direction of view, so'
      TabOrder = 1
    end
  end
  object Panel8: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    Caption = 'Panel8'
    TabOrder = 12
    Visible = False
    object lbl2body: TLabel
      Left = 8
      Top = 26
      Width = 337
      Height = 61
      AutoSize = False
      Caption =
        'You have chosen to look away from one body and towards another b' +
        'ody in your system. Please select the body that you would like t' +
        'o look towards.'
    end
    object lblpointBody: TLabel
      Left = 8
      Top = 26
      Width = 337
      Height = 79
      AutoSize = False
      Caption =
        'You have chosen to look away from a point in space and towards o' +
        'ne of the bodies in your system. Please select the body that you' +
        ' would like to look towards.'
    end
    object ListBoxTowardsbody: TListBox
      Left = 42
      Top = 106
      Width = 268
      Height = 160
      ItemHeight = 16
      Sorted = True
      TabOrder = 0
      OnClick = ListBoxTowardsbodyClick
    end
  end
  object ImageList: TImageList
    BkColor = clSilver
    AllocBy = 1
    Height = 230
    Width = 120
    Left = 75
    Top = 328
  end
end